home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcr / pcr4_4.lha / DIST / gc / GC_PrintReclaimPages.c next >
C/C++ Source or Header  |  1990-04-26  |  930b  |  38 lines
  1.  
  2. #include "xr/GCPrivate.h"
  3.  
  4. /* Debugging code */
  5. /* Boehm - April 26, 1990 1:46:53 pm PDT */
  6.  
  7. void GC_PrintReclaimPages()
  8. {
  9.     register struct hblk ** hbpp;
  10.     register struct hblk * hbp;
  11.     
  12.     GC_iprintf("Composite:\n");
  13.       for( hbpp = reclaim_list; hbpp < &reclaim_list[MAXOBJSZ+1]; hbpp++ ) {
  14.         hbp = *hbpp;
  15.         if (hbp != (struct hblk *)0) {
  16.             GC_iprintf("%d:", hb_sz(hbp));
  17.             while (hbp != (struct hblk *)0) {
  18.             GC_iprintf("+");
  19.             hbp = hb_sz_link(hbp);
  20.         }
  21.         GC_iprintf("\n");
  22.         }
  23.       }
  24.     GC_iprintf("Atomic:\n");
  25.       for( hbpp = areclaim_list; hbpp < &areclaim_list[MAXOBJSZ+1]; hbpp++ ) {
  26.         hbp = *hbpp;
  27.         if (hbp != (struct hblk *)0) {
  28.             GC_iprintf("%d:", -hb_sz(hbp));
  29.             while (hbp != (struct hblk *)0) {
  30.             GC_iprintf("+");
  31.             hbp = hb_sz_link(hbp);
  32.         }
  33.         GC_iprintf("\n");
  34.         }
  35.       }
  36. }
  37.     
  38.